home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / cw_cj_40.zip / CJ_A.PPE (.txt) next >
PCBoard Programming Language Executable  |  1994-06-01  |  13KB  |  530 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     String   STRING001
  28.     String   STRING002
  29.     String   STRING003
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.     String   STRING007
  34.     String   STRING008
  35.     String   STRING009
  36.     String   STRING010
  37.     String   STRING011
  38.     String   STRING012
  39.     String   STRING013
  40.     String   STRING014
  41.     String   STRING015
  42.     String   STRING016
  43.     String   STRING017
  44.     String   STRING018
  45.     String   STRING019
  46.     String   STRING020
  47.     String   STRING021
  48.     String   STRING022
  49.     String   STRING023
  50.     String   STRING024
  51.     String   STRING025
  52.     String   STRING026
  53.     String   STRING027
  54.     String   STRING028
  55.     String   STRING029
  56.     String   STRING030
  57.     String   STRING031
  58.     String   STRING032
  59.     String   STRING033
  60.     String   STRING034
  61.     String   STRING035
  62.     String   STRING036
  63.     String   STRING037
  64.     String   STRING038
  65.     String   STRING039
  66.     String   STRING040
  67.     String   STRING041
  68.     String   STRING042
  69.     String   STRING043
  70.     String   STRING044
  71.     String   STRING045
  72.     String   STRING046
  73.     String   STRING047
  74.     String   STRING048
  75.     String   STRING049
  76.     String   STRING050
  77.     String   STRING051
  78.     String   STRING052
  79.     String   STRING053
  80.     String   STRING054
  81.     String   STRING055
  82.     String   STRING056
  83.     String   STRING057
  84.  
  85. ;------------------------------------------------------------------------------
  86.  
  87.     STRING005 = TokenStr()
  88.     If (Strip(STRING005, Chr(32)) == "") Goto LABEL001
  89.     KbdStuff "J " + STRING005 + Chr(13)
  90.     End
  91.     :LABEL001
  92.     INTEGER003 = 36
  93.     STRING047 = PPEPath() + PPEName() + ".CNF"
  94.     STRING055 = 35110
  95.     STRING053 = "N"
  96.     STRING057 = "U" + "n" + "r" + "e" + "g" + "i" + "s" + "t" + "e" + "r" + "e" + "d"
  97.     If (PPEName() == "BBSLISTR") STRING054 = 48239
  98.     If (PPEName() == "BIRTHDAY") STRING054 = 58111
  99.     If (PPEName() == "CONFJOIN") STRING054 = 27233
  100.     If (PPEName() == "DOORMENU") STRING054 = 27233
  101.     If (PPEName() == "FILEMENU") STRING054 = 27233
  102.     If (PPEName() == "MAINMENU") STRING054 = 27233
  103.     If (PPEName() == "HOWHEARD") STRING054 = 18744
  104.     If (PPEName() == "NEWUSERS") STRING054 = 18744
  105.     If (PPEName() == "MSGQUEST") STRING054 = 10183
  106.     If (PPEName() == "PRO-VOTE") STRING054 = 30147
  107.     If (PPEName() == "REMINDME") STRING054 = 34515
  108.     If (PPEName() == "SPEEDLIM") STRING054 = 62956
  109.     If (PPEName() == "SUBSCRIP") STRING054 = 22239
  110.     If (PPEName() == "TIMEZONE") STRING054 = 38271
  111.     If (PPEName() == "USERNEWS") STRING054 = 51818
  112.     If (PPEName() == "WELCOMAT") STRING054 = 40621
  113.     If (Exist(STRING047)) Then
  114.         FOpen 1, STRING047, 0, 0
  115.         FGet 1, STRING042
  116.         FGet 1, INTEGER006
  117.         FGet 1, INTEGER005
  118.         FClose 1
  119.     Else
  120.         PrintLn "@X0CError - Config file not found - Please notify SysOp"
  121.         End
  122.     Endif
  123.     Tokenize STRING042
  124.     GetToken STRING051
  125.     GetToken STRING052
  126.     If ((INTEGER006 == 0) || (INTEGER005 == 79228)) Then
  127.         STRING053 = "N"
  128.         Goto LABEL005
  129.     Else
  130.         Goto LABEL002
  131.     Endif
  132.     :LABEL002
  133.     STRING056 = "N"
  134.     If (INTEGER005 == 52888) STRING056 = "Y"
  135.     If (INTEGER005 == 103750) STRING056 = "Y"
  136.     If (INTEGER005 == 77670) STRING056 = "Y"
  137.     If (INTEGER005 == 32139) STRING056 = "Y"
  138.     If (INTEGER005 == 40700) STRING056 = "Y"
  139.     If (INTEGER005 == 49190) STRING056 = "Y"
  140.     If (INTEGER005 == 50402) STRING056 = "Y"
  141.     If (INTEGER005 == 58961) STRING056 = "Y"
  142.     If (INTEGER005 == 67450) STRING056 = "Y"
  143.     If (INTEGER005 == 80838) STRING056 = "Y"
  144.     If (INTEGER005 == 103175) STRING056 = "Y"
  145.     If (INTEGER005 == 67270) STRING056 = "Y"
  146.     If (INTEGER005 == 55461) STRING056 = "Y"
  147.     If (INTEGER005 == 64023) STRING056 = "Y"
  148.     If (INTEGER005 == 72512) STRING056 = "Y"
  149.     If (INTEGER005 == 85900) STRING056 = "Y"
  150.     If (INTEGER005 == 63607) STRING056 = "Y"
  151.     If (INTEGER005 == 72098) STRING056 = "Y"
  152.     If (INTEGER005 == 80845) STRING056 = "Y"
  153.     If (INTEGER005 == 14372) STRING056 = "Y"
  154.     If (INTEGER005 == 22932) STRING056 = "Y"
  155.     If (INTEGER005 == 31421) STRING056 = "Y"
  156.     If (INTEGER005 == 44809) STRING056 = "Y"
  157.     If (INTEGER005 == 67145) STRING056 = "Y"
  158.     If (INTEGER005 == 67813) STRING056 = "Y"
  159.     If (STRING056 == "Y") STRING053 = "N"
  160.     If (STRING056 == "Y") Goto LABEL005
  161.     If ((INTEGER006 == 0) || (INTEGER005 == 79228)) Then
  162.         STRING053 = "N"
  163.         Goto LABEL005
  164.     Else
  165.         Goto LABEL003
  166.     Endif
  167.     :LABEL003
  168.     STRING048 = Left(STRING051, 1)
  169.     STRING049 = Left(STRING052, 2)
  170.     STRING050 = STRING048 + STRING049
  171.     If (STRING048 == "A") INTEGER007 = 1934
  172.     If (STRING048 == "B") INTEGER007 = 2859
  173.     If (STRING048 == "C") INTEGER007 = 3743
  174.     If (STRING048 == "D") INTEGER007 = 4660
  175.     If (STRING048 == "E") INTEGER007 = 5534
  176.     If (STRING048 == "F") INTEGER007 = 6471
  177.     If (STRING048 == "G") INTEGER007 = 7325
  178.     If (STRING048 == "H") INTEGER007 = 8287
  179.     If (STRING048 == "I") INTEGER007 = 9119
  180.     If (STRING048 == "J") INTEGER007 = 1096
  181.     If (STRING048 == "K") INTEGER007 = 2928
  182.     If (STRING048 == "L") INTEGER007 = 3885
  183.     If (STRING048 == "M") INTEGER007 = 4737
  184.     If (STRING048 == "N") INTEGER007 = 5674
  185.     If (STRING048 == "O") INTEGER007 = 6546
  186.     If (STRING048 == "P") INTEGER007 = 7463
  187.     If (STRING048 == "Q") INTEGER007 = 8355
  188.     If (STRING048 == "R") INTEGER007 = 9242
  189.     If (STRING048 == "S") INTEGER007 = 1164
  190.     If (STRING048 == "T") INTEGER007 = 2031
  191.     If (STRING048 == "U") INTEGER007 = 3973
  192.     If (STRING048 == "V") INTEGER007 = 4820
  193.     If (STRING048 == "W") INTEGER007 = 5782
  194.     If (STRING048 == "X") INTEGER007 = 6619
  195.     If (STRING048 == "Y") INTEGER007 = 7591
  196.     If (STRING048 == "Z") INTEGER007 = 8408
  197.     INTEGER004 = S2I(STRING050, INTEGER003) + INTEGER006 + STRING054 + INTEGER007
  198.     INTEGER008 = S2I(STRING050, INTEGER003) + INTEGER006 + STRING055 + INTEGER007
  199.     If (INTEGER005 == INTEGER004) Goto LABEL004
  200.     If (INTEGER005 == INTEGER008) Goto LABEL004
  201.     Goto LABEL009
  202.     :LABEL004
  203.     STRING053 = "Y"
  204.     If (Len(INTEGER006) == 1) STRING044 = "000"
  205.     If (Len(INTEGER006) == 2) STRING044 = "00"
  206.     If (Len(INTEGER006) == 3) STRING044 = "0"
  207.     If (Len(INTEGER006) == 4) STRING044 = ""
  208.     STRING045 = INTEGER006
  209.     STRING046 = STRING044 + STRING045
  210.     If (Len(STRING042) == 30) STRING043 = ""
  211.     If (Len(STRING042) == 29) STRING043 = ""
  212.     If (Len(STRING042) == 28) STRING043 = " "
  213.     If (Len(STRING042) == 27) STRING043 = " "
  214.     If (Len(STRING042) == 26) STRING043 = "  "
  215.     If (Len(STRING042) == 25) STRING043 = "  "
  216.     If (Len(STRING042) == 24) STRING043 = "   "
  217.     If (Len(STRING042) == 23) STRING043 = "   "
  218.     If (Len(STRING042) == 22) STRING043 = "    "
  219.     If (Len(STRING042) == 21) STRING043 = "    "
  220.     If (Len(STRING042) == 20) STRING043 = "     "
  221.     If (Len(STRING042) == 19) STRING043 = "     "
  222.     If (Len(STRING042) == 18) STRING043 = "      "
  223.     If (Len(STRING042) == 17) STRING043 = "      "
  224.     If (Len(STRING042) == 16) STRING043 = "       "
  225.     If (Len(STRING042) == 15) STRING043 = "       "
  226.     If (Len(STRING042) == 14) STRING043 = "        "
  227.     If (Len(STRING042) == 13) STRING043 = "        "
  228.     If (Len(STRING042) == 12) STRING043 = "         "
  229.     If (Len(STRING042) == 11) STRING043 = "         "
  230.     If (Len(STRING042) == 10) STRING043 = "          "
  231.     If (Len(STRING042) == 9) STRING043 = "          "
  232.     If (Len(STRING042) == 8) STRING043 = "           "
  233.     If (Len(STRING042) == 7) STRING043 = "           "
  234.     If (Len(STRING042) == 6) STRING043 = "            "
  235.     If (Len(STRING042) == 5) STRING043 = "            "
  236.     :LABEL005
  237.     STRING001 = "4.0 "
  238.     FOpen 1, STRING047, 0, 0
  239.     FGet 1, STRING042
  240.     FGet 1, INTEGER006
  241.     FGet 1, INTEGER005
  242.     FClose 1
  243.     STRING002 = PPEPath() + "MODE_A.TBL"
  244.     FOpen 1, STRING002, 0, 0
  245.     FGet 1, STRING006
  246.     FGet 1, INTEGER001
  247.     FGet 1, STRING003
  248.     FGet 1, STRING003
  249.     FGet 1, STRING009
  250.     FGet 1, STRING003
  251.     FGet 1, STRING003
  252.     FGet 1, STRING010
  253.     FGet 1, STRING003
  254.     FGet 1, STRING003
  255.     FGet 1, STRING011
  256.     FGet 1, STRING003
  257.     FGet 1, STRING003
  258.     FGet 1, STRING012
  259.     FGet 1, STRING003
  260.     FGet 1, STRING003
  261.     FGet 1, STRING013
  262.     FGet 1, STRING003
  263.     FGet 1, STRING003
  264.     FGet 1, STRING014
  265.     FGet 1, STRING003
  266.     FGet 1, STRING003
  267.     FGet 1, STRING015
  268.     FGet 1, STRING003
  269.     FGet 1, STRING003
  270.     FGet 1, STRING016
  271.     FGet 1, STRING003
  272.     FGet 1, STRING003
  273.     FGet 1, STRING017
  274.     FGet 1, STRING003
  275.     FGet 1, STRING003
  276.     FGet 1, STRING018
  277.     FGet 1, STRING003
  278.     FGet 1, STRING003
  279.     FGet 1, STRING019
  280.     FGet 1, STRING003
  281.     FGet 1, STRING003
  282.     FGet 1, STRING020
  283.     FGet 1, STRING003
  284.     FGet 1, STRING003
  285.     FGet 1, STRING021
  286.     FGet 1, STRING003
  287.     FGet 1, STRING003
  288.     FGet 1, STRING022
  289.     FGet 1, STRING003
  290.     FGet 1, STRING003
  291.     FGet 1, STRING023
  292.     FGet 1, STRING003
  293.     FGet 1, STRING003
  294.     FGet 1, STRING024
  295.     FGet 1, STRING003
  296.     FGet 1, STRING003
  297.     FGet 1, STRING025
  298.     FGet 1, STRING003
  299.     FGet 1, STRING003
  300.     FGet 1, STRING026
  301.     FGet 1, STRING003
  302.     FGet 1, STRING003
  303.     FGet 1, STRING027
  304.     FGet 1, STRING003
  305.     FGet 1, STRING003
  306.     FGet 1, STRING028
  307.     FGet 1, STRING003
  308.     FGet 1, STRING003
  309.     FGet 1, STRING029
  310.     FGet 1, STRING003
  311.     FGet 1, STRING003
  312.     FGet 1, STRING030
  313.     FGet 1, STRING003
  314.     FGet 1, STRING003
  315.     FGet 1, STRING031
  316.     FGet 1, STRING003
  317.     FGet 1, STRING003
  318.     FGet 1, STRING032
  319.     FGet 1, STRING003
  320.     FGet 1, STRING003
  321.     FGet 1, STRING033
  322.     FGet 1, STRING003
  323.     FGet 1, STRING003
  324.     FGet 1, STRING034
  325.     FGet 1, STRING003
  326.     FGet 1, STRING003
  327.     FGet 1, STRING035
  328.     FGet 1, STRING003
  329.     FGet 1, STRING003
  330.     FGet 1, STRING036
  331.     FGet 1, STRING003
  332.     FGet 1, STRING003
  333.     FGet 1, STRING037
  334.     FGet 1, STRING003
  335.     FGet 1, STRING003
  336.     FGet 1, STRING038
  337.     FGet 1, STRING003
  338.     FGet 1, STRING003
  339.     FGet 1, STRING039
  340.     FGet 1, STRING003
  341.     FGet 1, STRING003
  342.     FGet 1, STRING040
  343.     FClose 1
  344.     If (INTEGER005 == INTEGER004) STRING053 = "Y"
  345.     If (INTEGER005 == INTEGER008) STRING053 = "Y"
  346.     If (STRING053 == "N") Then
  347.         STRING008 = "@X0BConfJoin v" + STRING001 + " # " + "@X0FUnregistered@X0B" + " ■ " + STRING042
  348.     Endif
  349.     If (STRING053 == "Y") Then
  350.         STRING008 = "@X0BConfJoin v" + STRING001 + " #@X0F" + STRING046 + "@X0B ■ " + STRING042
  351.     Endif
  352.     :LABEL006
  353.     Cls
  354.     If (!Exist(STRING006)) PrintLn "@X8CERROR@X0B: Menu Display Missing! Notify SysOp!"
  355.     If (Exist(STRING006)) DispFile STRING006, 4 + 2 + 1
  356.     PrintLn STRING008
  357.     STRING007 = ""
  358.     InputStr "@X0BWhich Menu Item @X0F#@X0B would you like to view, @X0FS@X0B)earch", STRING007, 11, 2, "1234567890Ss", Mask_Alpha() + Mask_Num()
  359.     If (STRING007 == "") End
  360.     If (STRING007 == "S") Goto LABEL008
  361.     If (STRING007 == "s") Goto LABEL008
  362.     INTEGER002 = STRING007
  363.     If (INTEGER002 > INTEGER001) Goto LABEL007
  364.     Select Case (INTEGER002)
  365.         Case 1
  366.             STRING041 = STRING009
  367.         Case 2
  368.             STRING041 = STRING010
  369.         Case 3
  370.             STRING041 = STRING011
  371.         Case 4
  372.             STRING041 = STRING012
  373.         Case 5
  374.             STRING041 = STRING013
  375.         Case 6
  376.             STRING041 = STRING014
  377.         Case 7
  378.             STRING041 = STRING015
  379.         Case 8
  380.             STRING041 = STRING016
  381.         Case 9
  382.             STRING041 = STRING017
  383.         Case 10
  384.             STRING041 = STRING018
  385.         Case 11
  386.             STRING041 = STRING019
  387.         Case 12
  388.             STRING041 = STRING020
  389.         Case 13
  390.             STRING041 = STRING021
  391.         Case 14
  392.             STRING041 = STRING022
  393.         Case 15
  394.             STRING041 = STRING023
  395.         Case 16
  396.             STRING041 = STRING024
  397.         Case 17
  398.             STRING041 = STRING025
  399.         Case 18
  400.             STRING041 = STRING026
  401.         Case 19
  402.             STRING041 = STRING027
  403.         Case 20
  404.             STRING041 = STRING028
  405.         Case 21
  406.             STRING041 = STRING029
  407.         Case 22
  408.             STRING041 = STRING030
  409.         Case 23
  410.             STRING041 = STRING031
  411.         Case 24
  412.             STRING041 = STRING032
  413.         Case 25
  414.             STRING041 = STRING033
  415.         Case 26
  416.             STRING041 = STRING034
  417.         Case 27
  418.             STRING041 = STRING035
  419.         Case 28
  420.             STRING041 = STRING036
  421.         Case 29
  422.             STRING041 = STRING037
  423.         Case 30
  424.             STRING041 = STRING038
  425.         Case 31
  426.             STRING041 = STRING039
  427.         Case 32
  428.             STRING041 = STRING040
  429.         Case Else
  430.             Goto LABEL006
  431.     End Select
  432.     If (Exist(STRING041)) Then
  433.         Cls
  434.         DispFile STRING041, 4 + 2 + 1
  435.     Else
  436.         Goto LABEL007
  437.     Endif
  438.     PrintLn 
  439.     InputStr "@X0EConference # to join (Enter)=none", STRING004, 11, 5, "0123456789", Mask_Ascii()
  440.     If (STRING004 == "") Goto LABEL006
  441.     KbdStuff "J " + STRING004 + Chr(13)
  442.     End
  443.     :LABEL007
  444.     PrintLn 
  445.     PrintLn STRING008
  446.     PrintLn "@X8CERROR@X0B: Conference display for this network is missing! Notify SysOp!"
  447.     PrintLn 
  448.     Wait
  449.     Goto LABEL006
  450.     :LABEL008
  451.     KbdStuff "J S ^M"
  452.     End
  453.     :LABEL009
  454.     Cls
  455.     Color 14
  456.     PrintLn 
  457.     PrintLn "                       ┌──────────────────────────────┐"
  458.     PrintLn "                       │        ConfJoin  v", STRING001, "       │"
  459.     PrintLn "                       │                              │"
  460.     PrintLn "                       │      Aborting Operation      │"
  461.     PrintLn "                       │                              │"
  462.     PrintLn "                       │  Invalid Registration Code!  │"
  463.     PrintLn "                       └──────────────────────────────┘"
  464.     Beep
  465.     Delay 182
  466.     End
  467.  
  468. ;------------------------------------------------------------------------------
  469. ;
  470. ; Usage report (before postprocessing)
  471. ;
  472. ; ■ Statements used :
  473. ;
  474. ;    6       End
  475. ;    3       Cls
  476. ;    1       Wait
  477. ;    1       Color 
  478. ;    90      Goto 
  479. ;    155     Let 
  480. ;    16      PrintLn 
  481. ;    149     If 
  482. ;    2       DispFile 
  483. ;    3       FOpen 
  484. ;    3       FClose 
  485. ;    104     FGet 
  486. ;    2       InputStr 
  487. ;    1       Delay 
  488. ;    1       Tokenize 
  489. ;    2       GetToken 
  490. ;    1       Beep
  491. ;    3       KbdStuff 
  492. ;
  493. ;
  494. ; ■ Functions used :
  495. ;
  496. ;    41      +
  497. ;    146     ==
  498. ;    1       >
  499. ;    40      !
  500. ;    2       ||
  501. ;    30      Len(
  502. ;    2       Left()
  503. ;    3       Chr()
  504. ;    1       Strip()
  505. ;    1       Mask_Alpha()
  506. ;    1       Mask_Num()
  507. ;    1       Mask_Ascii()
  508. ;    2       PPEPath()
  509. ;    4       Exist()
  510. ;    2       S2I()
  511. ;    1       TokenStr()
  512. ;    17      PPEName()
  513. ;
  514. ;------------------------------------------------------------------------------
  515. ;
  516. ; Analysis flags : No flag
  517. ;
  518. ;------------------------------------------------------------------------------
  519. ;
  520. ; Postprocessing report
  521. ;
  522. ;    0       For/Next
  523. ;    0       While/EndWhile
  524. ;    6       If/Then or If/Then/Else
  525. ;    1       Select Case
  526. ;
  527. ;------------------------------------------------------------------------------
  528. ;                 AEGiS Corp - Break the routines, code against the machines!
  529. ;------------------------------------------------------------------------------
  530.